home *** CD-ROM | disk | FTP | other *** search
- ; Installscript for CDP (c) 1994-95 by andreash, Andreas Harrenberg
-
- (set app_name "CDP")
- (set version "0.771")
- (set vers_name (cat app_name version))
-
- ; Texte für den Installer
-
- ; -- english [default]
-
- (set #badkick (cat "You need at least Kickstart 2.04 (37.175),\n"
- "to use CDP.")
- )
- (set #badMUI (cat "You need at least MUI 2.1 to use CDP.\n"
- "MUI © Stefan Stuntz")
- )
- (set #introduction (cat "\n\n"
- "CDP, a SCSI-II CD-Player\n\n"
- "CDP © 1994-95 Andreas Harrenberg\n"
- "MUI © Stefan Stuntz\n\n"
- "CDP is Freeware!\n")
- )
- (set #askprogdir (cat "Please choose a directory for " app_name ".\n"
- "A directory "app_name" will be created!\n")
- )
- (set #mkdir ("creating directory "))
- (set #cpprog ("copy the programm...\n"))
- (set #doctype (cat "The Manual for " app_name " is availble in Guide-Format,\n"
- "as ASCII and as DVI. Which Versions should be installed?\n")
- )
- (set #doc (cat app_name ".doc"))
- (set #guide (cat app_name "_English.guide"))
- (set #dvi (cat app_name "_E.dvi"))
- (set #askdocdir (cat "Please choose a directory for the manual.\n"
- "A directory will NOT be created!\n")
- )
-
-
- ; -- deutsch
-
- (if (= @language "deutsch") (
- (set #badkick (cat "Sie benötigen mindestens Kickstart 2.04 (37.175),\n"
- "um CDP benutzen zu können.")
- )
- (set #badMUI (cat "Sie benötigen mindestens MUI 2.1 um CDP benutzen zu können.\n"
- "MUI © Stefan Stuntz")
- )
- (set #introduction (cat "\n\n"
- "CDP, ein SCSI-II CD-Player\n\n"
- "CDP © 1994-95 Andreas Harrenberg\n"
- "MUI © Stefan Stuntz\n\n"
- "CDP ist Freeware!\n")
- )
- (set #askprogdir (cat "Bitte wählen Sie ein Verzeichnis für " app_name ".\n"
- "Es wird eine Schublade "app_name" erzeugt!\n")
- )
- (set #mkdir ("Erzeuge Schublade "))
- (set #cpprog ("Kopieren des Programms...\n"))
- (set #doctype (cat "Die Anleitung zu " app_name " ist im Guide-Format,\n"
- "als ASCII und als DVI verfügbar. Welche Version soll\n"
- "installiert werden?\n"))
- (set #doc (cat app_name ".dok"))
- (set #guide (cat app_name "_Deutsch.guide"))
- (set #dvi (cat app_name "_D.dvi"))
- (set #askdocdir (cat "Bitte wählen Sie ein Verzeichnis für die Anleitung.\n"
- "Es wird KEINE Schublade angelegt!\n")
- )
- ))
-
-
- ; -------------------------------------------------------------------------
-
- (transcript (cat "Installing " @vers_name " ..."))
-
- (if (< (/ (getversion) 65536) 37) (
- (message #badkick)
- (exit (quiet))
- ))
-
- (if (< (/ (getversion "libs:muimaster.library") 65536) 7) (
- (message #badmui)
- (exit (quiet))
- ))
-
- ; -------------------------------------------------------------------------
- (complete 0)
-
- (message #introduction)
-
- (welcome)
-
- ; -------------------------------------------------------------------------
-
- (set progdir
- (askdir
- (prompt #askprogdir)
- (help @askdir_help)
- (default "Work:")
- )
- )
- (set progdir (tackon progdir app_name))
- (makedir progdir
- (infos)
- (prompt (cat #mkdir app_name "\n"))
- )
-
- (copylib
- (prompt #cpprog)
- (source (cat "bin/" app_name))
- (dest progdir)
- (infos)
- (help @copylib-help)
- (confirm)
- )
-
- (complete 40)
-
- (copyfiles
- (prompt #doctype)
- (dest progdir)
- (infos)
- (files)
- (if (= @language "deutsch") (source "doc/deutsch"))
- (if (= @language "english") (source "doc/english"))
- (help @copylib-help)
- (confirm)
- (choices
- #doc
- #guide
- #dvi
- )
- )
-
- (exit (quiet))
-